10 ' MORT
20 MODE 1:BORDER 0
30 Poke &BE80,0:Poke &BE81,0:Poke &BE82,0:Poke &BE83,0:Poke &BE84,0:Poke &BE85,0:Poke &BE86,0
40 for i=0 to 15:ink i,0:next i
50 MEMORY &3FFF:LOAD"Mort.cmp"
60 poke &A634,&C8:poke &A635,0:poke &A636,0:CALL &A60B
70 poke &C7F1,&C9:CALL &C7D0
80 CALL &A60B
85 Locate 8,21:PEn 3:PRINT"Voulez-vous rejouer (O/N) ?"
90 k$=INKEY$
100 IF k$="O" or k$="o" THEN RUN"Caire.bas"
110 IF k$="N" or k$="n" THEN CALL 0
120 IF k$<>"O" OR k$<>"o" OR k$<>"N" OR k$<>"n" THEN GOTO 90